Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/crwdemo/server.frm

Text File | 1995-12-05 | 7KB | 277 lines

VERSION 2.00
Begin Form SetLogon
   BackColor       =   &H00C0C0C0&
   Caption         =   "SQL Server"
   ClientHeight    =   4065
   ClientLeft      =   3060
   ClientTop       =   3105
   ClientWidth     =   5835
   Height          =   4755
   Left            =   3000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4065
   ScaleWidth      =   5835
   Top             =   2475
   Width           =   5955
   Begin SSPanel Statusbar
      Alignment       =   1  'Left Justify - MIDDLE
      BorderWidth     =   1
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   0
      TabIndex        =   12
      Top             =   3720
      Width           =   6855
   End
   Begin CommandButton Command4
      Caption         =   "Clear Settings"
      Height          =   375
      Left            =   3330
      TabIndex        =   11
      Top             =   1260
      Width           =   1575
   End
   Begin CommandButton Command3
      Caption         =   "Get Info"
      Height          =   375
      Left            =   3330
      TabIndex        =   10
      Top             =   360
      Width           =   1575
   End
   Begin TextBox Text4
      Height          =   375
      Left            =   240
      PasswordChar    =   "*"
      TabIndex        =   8
      Top             =   2520
      Width           =   2175
   End
   Begin TextBox Text3
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   1800
      Width           =   2175
   End
   Begin TextBox Text2
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   1080
      Width           =   2175
   End
   Begin TextBox Text1
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   360
      Width           =   2175
   End
   Begin CommandButton Command2
      Caption         =   "Set Info"
      Height          =   375
      Left            =   3330
      TabIndex        =   1
      Top             =   810
      Width           =   1575
   End
   Begin CommandButton Command1
      Caption         =   "Close"
      Height          =   375
      Left            =   3330
      TabIndex        =   0
      Top             =   2475
      Width           =   1575
   End
   Begin Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Password"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   240
      MousePointer    =   11  'Hourglass
      TabIndex        =   9
      Top             =   2280
      Width           =   1455
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "User ID"
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   1560
      Width           =   1695
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Database Name"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   840
      Width           =   1695
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Server Name"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   120
      Width           =   1695
   End
   Begin Menu MenuFileSQLLogon
      Caption         =   "&File"
      Begin Menu MenuFileExit
         Caption         =   "&Exit"
      End
   End
End
Dim DLLName As String

Sub Command1_Click ()
 Unload Me

End Sub

Sub Command2_Click ()
    If JobNum = 0 Then
        MsgBox "No job open."
        Exit Sub
    End If

    Dim logonInfo As PELogonInfo
    logonInfo.StructSize = Len(logonInfo)

    logonInfo.ServerName = Text1.Text + Chr$(0)
    logonInfo.DatabaseName = Text2.Text + Chr$(0)
    logonInfo.UserID = Text3.Text + Chr$(0)
    logonInfo.Password = Text4.Text + Chr$(0)

    If PESetNthTableLogonInfo(JobNum, 0, logonInfo, 1) = 1 Then
        Statusbar.Caption = "Logon Info has been Set."
    Else
      RCode = GetErrorString(JobNum)
      MsgBox "PESetNthTableLogonInfo Error #: " + Str(ErrorCode) + " - " + RCode
    End If
End Sub

Sub Command3_Click ()
    If JobNum = 0 Then
        MsgBox "No job open."
        Exit Sub
    End If
    Dim logonInfo As PELogonInfo
    logonInfo.StructSize = Len(logonInfo)
    logonInfo.ServerName = Chr$(0)
    logonInfo.DatabaseName = Chr$(0)
    logonInfo.UserID = Chr$(0)
    logonInfo.Password = Chr$(0)

    If PEGetNthTableLogonInfo(JobNum, 0, logonInfo) = 1 Then
        Text1.Text = logonInfo.ServerName
        Text2.Text = logonInfo.DatabaseName
        Text3.Text = logonInfo.UserID
        Statusbar.Caption = "Logon info has returned."

    Else
      RCode = GetErrorString(JobNum)
      MsgBox "PEGetNthTableLogonInfo Error #: " + Str(ErrorCode) + " - " + RCode

    End If


End Sub

Sub Command4_Click ()
  Text1.Text = " "
  Text2.Text = " "
  Text3.Text = " "
End Sub

Sub Command5_Click ()
Dim locInfo As PETableLocation
    locInfo.Location = Chr$(0)
    locInfo.StructSize = Len(locInfo)

    If PEGetNthTableLocation(JobNum, tableN, locInfo) = 1 Then
        'Text5.Text = locInfo.Location
    Else
      RCode = GetErrorString(JobNum)
      MsgBox "PEGetNthTableLocation Error #: " + Str(ErrorCode) + " - " + RCode

      Exit Sub
    End If
End Sub

Sub Command6_Click ()
    Dim locInfo As PETableLocation
    locInfo.StructSize = Len(locInfo)

    'locInfo.Location = Text5.Text + Chr$(0)

    If PESetNthTableLocation(JobNum, tableN, locInfo) = 1 Then
        MsgBox "Location info set."
    Else
      RCode = GetErrorString(JobNum)
      MsgBox "PESetNthTableLocation Error #: " + Str(ErrorCode) + " - " + RCode

      Exit Sub
    End If

End Sub

Sub Command7_Click ()
   Dim nTables As Integer

   nTables = PEGetNTables(JobNum)

   If (tableN < nTables - 1) Then
      tableN = tableN + 1
   End If

End Sub

Sub Command8_Click ()
   Dim nTables As Integer

   If (tableN > 0) Then
      tableN = tableN - 1
   End If

End Sub

Sub Form_Load ()
   Statusbar.Caption = "Ready"
   tableN = 0
End Sub

Sub MenuConnectivityDLL_Click ()
 MsgBox DLLName
End Sub

Sub MenuConnectivityDLLtype_Click ()

  If DLLName = "PDSODBC.DLL" Or DLLName = "pdsodbc.dll" Then
   MsgBox "Connection via ODBC."
  Else
   MsgBox "Connection via Q+E Lib."
  End If
End Sub

Sub MenuExitSQLLogon_Click ()
   Unload Me
End Sub

Sub MenuFileExit_Click ()
 Unload Me
End Sub